home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 008 / guitar.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1984-04-24  |  1.1 KB  |  52 lines
  1. 1  COLOR 7,0
  2. 2  'Program by Ed Cummins  Atlanta  IBM PC Club
  3. 3  'Released for Public Domain use
  4. 10  KEY OFF:CLS:X$=STRING$(80,45)
  5. 20  PRINT X$
  6. 30  P$="G U I T A R    T U N I N G   P R O G R A M "
  7. 40  LOCATE ,40-(LEN(P$)/2)
  8. 50  PRINT P$:PRINT:PRINT X$
  9. 60  PRINT
  10. 70  PRINT "String #","Note"
  11. 80  PRINT "--------","----"
  12. 100  GOSUB 10000
  13. 110  GOSUB 11000
  14. 120  GOSUB 12000
  15. 130  GOSUB 13000
  16. 140  GOSUB 14000
  17. 150  GOSUB 15000
  18. 160  LOCATE 25,1:PRINT" Select NUMBER of Desired String or press 'SPACE BAR' to stop";
  19. 162  S$=INPUT$(1):S=VAL(S$)
  20. 170  ON S GOTO 1000,2000,3000,4000,5000,6000
  21. 180  PLAY "o0c64":GOTO 160
  22. 1000  COLOR 31:GOSUB 10000
  23. 1004  PLAY "mlo2e64":S$=INKEY$:IF S$="" THEN 1004
  24. 1006  COLOR 7:GOSUB 10000
  25. 1010  S=VAL(S$):GOTO 170
  26. 2000  COLOR 31:GOSUB 11000
  27. 2004  PLAY "mlo1b64":S$=INKEY$:IF S$="" THEN 2004
  28. 2006  COLOR 7:GOSUB 11000
  29. 2010  S=VAL(S$):GOTO 170
  30. 3000  COLOR 31:GOSUB 12000
  31. 3004  PLAY "mlo1g64":S$=INKEY$:IF S$="" THEN 3004
  32. 3006  COLOR 7:GOSUB 12000
  33. 3010  S=VAL(S$):GOTO 170
  34. 4000  COLOR 31:GOSUB 13000
  35. 4004  PLAY "mlo1d64":S$=INKEY$:IF S$="" THEN 4004
  36. 4006  COLOR 7:GOSUB 13000
  37. 4010  S=VAL(S$):GOTO 170
  38. 5000  COLOR 31:GOSUB 14000
  39. 5004  PLAY "mlo0a64":S$=INKEY$:IF S$="" THEN 5004
  40. 5006  COLOR 7:GOSUB 14000
  41. 5010  S=VAL(S$):GOTO 170
  42. 6000  COLOR 31:GOSUB 15000
  43. 6004  PLAY "mlo0e64":S$=INKEY$:IF S$="" THEN 6004
  44. 6006  COLOR 7:GOSUB 15000
  45. 6010  S=VAL(S$):GOTO 170
  46. 10000  LOCATE 10,5:PRINT "1","E";:PRINT:RETURN
  47. 11000  LOCATE 12,5:PRINT "2","B";:PRINT:RETURN
  48. 12000  LOCATE 14,5:PRINT "3","G";:PRINT:RETURN
  49. 13000  LOCATE 16,5:PRINT "4","D";:PRINT:RETURN
  50. 14000  LOCATE 18,5:PRINT "5","A";:PRINT:RETURN
  51. 15000  LOCATE 20,5:PRINT "6","E";:PRINT:RETURN
  52.